home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 December / DPPCPRO1205.ISO / Essentials / Programming / Basic4GL / Setup Basic4GL v2.3.1.exe / $INSTDIR / Programs / Starfield2.gb < prev    next >
Encoding:
Text File  |  2005-07-29  |  1.7 KB  |  56 lines
  1. ' Star field demo 2
  2. '
  3. ' Varying star's brightness by explicitly setting the colour
  4.  
  5. ' Note:
  6. ' This demo is based on the source code from the previous one.
  7. ' I've removed most of the explanation comments from the previous demo, 
  8. ' and just commented the new pieces.
  9. ' 
  10. '   * I've upped the number of stars, and doubled the movement speed also
  11.  
  12. const maxStars = 1000
  13.  
  14. dim stars#(maxStars)(2)
  15. dim i, intensity#
  16.  
  17. ' Populate star field
  18. for i = 1 to maxStars
  19.     stars#(i) = vec3 (rnd () % 401 - 200, rnd () % 401 - 200, -i)
  20. next
  21.  
  22. glDisable (GL_DEPTH_TEST)
  23.  
  24. ' Main loop
  25. while true    
  26.     glClear (GL_COLOR_BUFFER_BIT)       
  27.  
  28.     for i = 1 to maxStars
  29.     
  30.         ' Move the star forward, by adding 1 to Z
  31.         stars#(i) = stars#(i) + vec3 (0, 0, 2)
  32.  
  33.         ' If the Z goes positive (behind the screen), move it to the back again.
  34.         if stars#(i)(2) >= 0 then stars#(i)(2) = -maxStars endif
  35.         
  36.         ' Calculate the star's intensity. 
  37.         ' We want this to come out as a value between 0 and 1.
  38.         ' So the furthest away stars have intensity 0, and the closest have 1.
  39.         intensity# = (stars#(i)(2) + maxStars) / maxStars
  40.         glBegin (GL_POINTS)
  41.         
  42.             ' Set the star's colour
  43.             glColor3f (intensity#, intensity#, intensity#)
  44.             ' This is a form of the glColor command.
  45.             ' The last 2 characters tell us:
  46.             '   3 = Takes a 3D vector
  47.             '   F = Floating point values   
  48.             ' 3 parameters are: Red component, Blue component, Green component
  49.  
  50.             glVertex3fv (stars#(i))
  51.         glEnd ()
  52.     next
  53.     SwapBuffers ()
  54.     WaitTimer (20)
  55. wend
  56.